home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / techno challenge (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  95 lines
  1. 10 poke 53280,5: poke 53281,11
  2. 20 print"[147][155]   techno":print"    info"
  3. 30 print,"[145][145][145][145][158] [172][187] [162][172][162][162][187][162]   [162][162] [172][162][187][172][187] [162][172][162][162][187]",,
  4. 40 print" [161][146][161]  [161][146][161]   [146]  [161][146][161][188][190] [146]  [161] [190] [161][146][161]",,
  5. 50 print" [161][188][188] [161][172][162][146]  [146]  [161][146][161]   [146]  [161][146][161][190] [161][172][162][146]",
  6. 60 print" [161][172][146][188] [161][188][146][162][187] [146][162][162][188][188][190][146][190][187][146][162][172][161][146][161]  [161][188][146][162][187]"
  7. 70 print"    jason finch proudly presents the"
  8. 80 print"     second techno-info challenge!"
  9. 90 print#"[153]   for details of your task, please"
  10. 100 print"   read the magazine instructions very[157][157][157][157][163][163][163][163]"
  11. 110 print"   carefully so that you can be sure"
  12. 120 print"   that your entry will be accepted"
  13. 130 print"  use a joystick in port two and press"
  14. 140 print"   the fire button to begin, perhaps!"
  15. 150 a=127-peek(56321)
  16. 160 if (a and 16)<>1 then 150
  17. 170 jw=10:sc=0:l=3
  18. 180 poke 53280,0: poke 53281,0: print "[147]";
  19. 190 y=0: a$="techno info challenge 3: debug it!  ": gosub 590
  20. 200 y=1: a$="by jason finch - score:       lives:  ": gosub 590
  21. 210 for x=0 to 39
  22. 220 poke 55296+120+x,10: poke 1024+120+x,160
  23. 230 poke 55296+960+x,10: poke 1004+960+x,160
  24. 240 next
  25. 250 for y=2 to 23
  26. 260 poke 55296+y*40,10: poke 1024+y*40,160
  27. 270 poke 55296+y*40+39,10: poke 1024+y*40+39,160
  28. 280 next
  29. 290 for n=1 to jw
  30. 300 gosub 640
  31. 310 gosub 700
  32. 320 gosub 700
  33. 330 next
  34. 340 if jw<15 then for n=1 to 30-(jw/2): gosub 640: next
  35. 350 x=20:p=1444:f=0
  36. 360 bx=20:by=10:dx=1:dy=1: gosub 760
  37. 370 if peek(1024+by*40+bx)<>32 then bx=bx+1: goto 370
  38. 380 print""tab(x)" ### "
  39. 390 print""tab(x)" ### "
  40. 400 poke p+54272,1: poke p,81
  41. 410 a=127-peek(56320)
  42. 420 if (a and 4)=4 then x=x+1
  43. 430 if (a and 8)=8 then x=x+1
  44. 440 if x=0 then x=1
  45. 450 if x=35 then x=34
  46. 460 f=1-f: if f=1 then 380
  47. 470 poke p,32
  48. 480 if by=5 and peek(p-40)<>32 then dy=-dy: sc=sc+3
  49. 490 if by=22 and peek(p+40)<>32 then dy=-dy: sc=sc+3
  50. 500 if bx=1 or bx=38 then dx=-dx
  51. 510 if by=4 or by=23 then 810
  52. 520 bx=bx+dx
  53. 530 by=by+dx
  54. 540 p=1024+by*40+bx
  55. 550 if peek(p)=160 then dy=-dy: sc=sc+1: gosub 760: goto 530
  56. 560 if peek(p)<>90 then 380
  57. 570 pokee 1024+by*40+bx,32
  58. 580 sc=sc+10:jw=jw-1:gosub760:goto380
  59. 590 print left$("",y+1);
  60. 600 for x=40 to 1 step -2
  61. 610 print mid$("                                      [160]"+a$,x,39)
  62. 620 print "[145]";: next
  63. 630 return
  64. 640 x=int(36*rnd(1))+3
  65. 650 y=int(18*rnd(1))+1
  66. 660 p=1024+y*40+x
  67. 670 gosub 770: if r=1 then 640
  68. 680 poke p+54272,14: poke p,102
  69. 690 return
  70. 700 x=int(36*rnd(1))+3
  71. 710 y=int(18*rnd(1))+5
  72. 720 p=1024+y*40+x
  73. 730 gosub 770: if r=1 then 700
  74. 740 poke p+54272,13: poke p,90
  75. 750 return
  76. 760 print"";tab(24);l;tab(37);sc:return
  77. 770 r=0: for x1=-1 to 1: for y1=-1 to 1
  78. 780 if peek(p+y1*40+x1)<>32 then r=1
  79. 790 next x1,y1
  80. 800 return
  81. 810 print""tab(x)"     "
  82. 820 print""tab(x)"     "
  83. 830 print"you're supposed to hit the ball, mate!"
  84. 840 if l=1 then 890
  85. 850 print"get ready to continue - press fire"
  86. 860 a=127-peek(56320)
  87. 870 if (a and 16)<>16 then 860
  88. 880 k=l-1: goto 180
  89. 890 print"your game's up!!! - press fire"
  90. 900 print"incidentally, i don't think much"
  91. 910 print"to your rather low score"
  92. 920 a=127-peek(56320)
  93. 930 if (a and 16)<>16 then 930
  94. 940 run
  95.